home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / aminet / newyork / steuerung < prev    next >
AmigaDOS Script File  |  1978-01-11  |  2KB  |  111 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "start"
  14.     set vassign 1
  15.     set vstart 1
  16.     set vunassign 1
  17. endif
  18. if "[param]" EQ "install"
  19.     set vinstall 1
  20. endif
  21. set binfo        1
  22. set bcopy        1
  23. set bstart       1
  24. set binstall     1
  25.  
  26.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  27.     set nummer 0
  28.     if $binfo EQ 1
  29.          echo >>t:tmpsteuerung " Info" NOLINE
  30.          set nummer `eval $nummer + 1`
  31.          set ninfo $nummer
  32.     endif
  33.     if $bcopy EQ 1
  34.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  35.          set nummer `eval $nummer + 1`
  36.          set ncopy $nummer
  37.     endif
  38.     if $bstart EQ 1
  39.          echo >>t:tmpsteuerung " Start" NOLINE
  40.          set nummer `eval $nummer + 1`
  41.          set nstart $nummer
  42.     endif
  43.     if $binstall EQ 1
  44.          echo >>t:tmpsteuerung " Installieren" NOLINE
  45.          set nummer `eval $nummer + 1`
  46.          set ninstall $nummer
  47.     endif
  48.     if "[param]" EQ ""
  49.         echo >>t:tmpsteuerung " Ende" NOLINE
  50.         execute >nil: t:tmpsteuerung
  51.         delete >nil: t:tmpsteuerung
  52.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  53.         if $reqerg[$$] EQ 0
  54.             skip Ende
  55.         endif
  56.     endif
  57.     if $reqerg[$$] EQ $ninfo
  58.         set vinfo 1
  59.     endif
  60.     if $reqerg[$$] EQ $ncopy
  61.         set vcopy 1
  62.     endif
  63.     if $reqerg[$$] EQ $nstart
  64.         set vassign 1
  65.         set vstart 1
  66.         set vunassign 1
  67.     endif
  68.     if $reqerg[$$] EQ $ninstall
  69.         set vinstall 1
  70.     endif
  71. endif
  72.  
  73. if $vinfo EQ 1
  74. ;>>>>>>>> Hier Infotext eintragen
  75.     :c/Metatool :Aminet/NewYork/NewYork.guide FT=GUIDE
  76. endif
  77. if $vstart EQ 1
  78. ;>>>>>>>> Hier steht das Startprogramm
  79.     cd :aminet/newyork/
  80.     :Aminet/NewYork/NewYork
  81. endif
  82. if $vcopy EQ 1
  83.     execute :c/Verzeichniskopieren ":Aminet/NewYork/" "NewYork" 792576
  84. endif
  85. if $vinstall EQ 1
  86. ;>>>>>>>> Hier Install-Skript eintragen
  87.     assign l: :l add
  88.     cd >nil: :Aminet/NewYork/
  89.     :c/WBstarter >nil: :Aminet/NewYork/Install_NewYork
  90.     assign l: :l remove
  91.     skip Ende
  92. endif
  93.  
  94. unset binfo
  95. unset vinfo
  96. unset ninfo
  97. unset bstart
  98. unset vstart
  99. unset nstart
  100. unset binstall
  101. unset vinstall
  102. unset ninstall
  103. unset bcopy
  104. unset vcopy
  105. unset ncopy
  106. if "[param]" EQ ""
  107.     execute Steuerung
  108. endif
  109. LAB Ende
  110. unsetenv reqerg[$$]
  111.